Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Ed./Macintosh School® CD-ROM Demo/Macintosh SchoolÆ CD-ROM Demo/card_35347.txt

Text File | 1990-08-14 | 14KB | 621 lines

-- card: 35347 from stack: in
-- bmap block id: 35855
-- flags: 4000
-- background id: 25390
-- name: User Definable Fields…


-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=99 top=291 right=309 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  lock screen
  repeat with index = 1 to 9
    put "Undefined" into line index of card field "User Fields 1"
  end repeat
  repeat with index = 1 to 12
    put "Undefined" into line index of card field "User Fields 2"
  end repeat
  repeat with index = 3 to 27
    set icon of button index to "Md Unchecked Box"
  end repeat
  doMenu first
  unlock screen
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=345 top=291 right=309 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  lock screen
  repeat with index = 1 to 9
    put "Undefined" into line index of card field "User Fields 1"
  end repeat
  repeat with index = 1 to 12
    put "Undefined" into line index of card field "User Fields 2"
  end repeat
  repeat with index = 3 to 27
    set icon of button index to "Md Unchecked Box"
  end repeat
  doMenu first
  unlock screen
end mouseUp



-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=78 top=142 right=279 bottom=201
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 15
-- part name: User Fields 1


-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=303 top=82 right=264 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 15
-- part name: User Fields 2


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=84 right=98 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=99 right=113 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=114 right=128 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=129 right=143 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=144 right=158 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=159 right=173 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=174 right=188 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=189 right=203 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=204 right=218 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=219 right=233 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=234 right=248 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=249 right=263 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=264 right=278 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=84 right=98 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=99 right=113 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=114 right=128 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=129 right=143 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=144 right=158 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=159 right=173 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=174 right=188 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=189 right=203 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=204 right=218 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=219 right=233 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=234 right=248 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=249 right=263 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part contents for card part 3
----- text -----
Undefined
Undefined
Undefined
Undefined
Undefined
Undefined
Undefined
Undefined
Undefined

-- part contents for card part 4
----- text -----
Undefined
Undefined
Undefined
Undefined
Undefined
Undefined
Undefined
Undefined
Undefined
Undefined
Undefined
Undefined